home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / tcp / Config_CP4_x.lha / Config_CP4.x next >
Text File  |  1992-09-02  |  11KB  |  432 lines
  1. ;Configure AmiTCP Control Panel V4.2
  2. ;-----------------------------------
  3. ;©PirlAGA 1995
  4. ;e.mail: tekne@cmns.mnegri.it
  5. ;www:    http://www.cmns.mnegri.it/~tekne
  6.  
  7. (set left
  8.     (asknumber
  9.        (prompt "How Far From The Left \n Of The Screen Do You Want \n Control Panel To Appear?")
  10.        (help @asknumber-help)
  11.        (range 0 1200)
  12.        (default 10)
  13.     )
  14. )
  15.  
  16. (set top
  17.     (asknumber
  18.        (prompt "How Far Down The Screen \n Do You Want Control Panel To Appear?")
  19.        (help @asknumber-help)
  20.        (range 0 600)
  21.        (default 20)
  22.     )
  23. )
  24.  
  25. (set device1
  26.    (askbool
  27.       (prompt "Select The Device\n You Use To\nConnect To Internet\nThis Is Usually\n\nSLIP")
  28.       (default 1)
  29.       (choices "SLIP" "PPP")
  30.       (help "No other choiches!\n SLIP (often) or PPP")
  31.    )  
  32. )
  33.  
  34. (if(= device1 1)
  35.    (set DEVICE ("DEVICE = SLIP\n"))
  36.    (set DEVICE ("DEVICE = PPP\n"))
  37. )
  38.  
  39. (set Status1
  40.    (askbool
  41.       (prompt "\nDo You Want\nControl Panel\nStatus Information")
  42.       (default 1)
  43.       (choices "YES" "NO")
  44.       (help "It's not so hard to choose! :)")
  45.    )
  46. )
  47.  
  48. (if(= Status1 1)
  49.    (set STATUS ("STATUS = YES\n"))
  50.    (set STATUS ("STATUS = NO\n"))
  51. )
  52.  
  53. (message "\nNow it's time to setup programs to use.\n")
  54. (set link
  55.    (askfile
  56.       (prompt "What Script Do You Use To Connect To Internet?")
  57.       (help @askfile-help)
  58.       (default "amitcp:bin/link_gui.exe")
  59.    )
  60. )
  61.  
  62. (set mail
  63.    (askfile
  64.        (prompt "What Mail Program Do You Use?")
  65.        (help @askfile-help)
  66.        (default "amitcp:bin/mail")
  67.    )
  68. )
  69.  
  70. (set news
  71.    (askfile
  72.        (prompt "What News Program Do You Use?")
  73.        (help @askfile-help)
  74.        (default "amitcp:bin/grn")
  75.    )
  76. )
  77.  
  78. (set ftp
  79.    (askfile
  80.        (prompt "What FTP Program Do You Use?")
  81.        (help @askfile-help)
  82.        (default "amitcp:bin/mui-ftp")
  83.    )
  84. )
  85.  
  86. (set WWW
  87.    (askfile
  88.        (prompt "What WWW Browser Do You Use?")
  89.        (help @askfile-help)
  90.        (default "amitcp:bin/amosaic")
  91.    )
  92. )
  93.  
  94. (set Gopher
  95.    (askfile
  96.        (prompt "What Gopher Program Do You Use?")
  97.        (help @askfile-help)
  98.        (default "amitcp:bin/gopher")
  99.    )
  100. )
  101.  
  102. (set IRC
  103.    (askfile
  104.        (prompt "What IRC Program Do You Use?")
  105.        (help @askfile-help)
  106.        (default "amitcp:bin/gv")
  107.    )
  108. )
  109.  
  110. (set UUDECODER
  111.    (askfile
  112.        (prompt "What UUDecoder Do You Use?")
  113.        (help @askfile-help)
  114.        (default "amitcp:bin/uucode")
  115.    )
  116. )
  117.  
  118. (set DeArchiver
  119.    (askfile
  120.        (prompt "What DeArchiver Do You Use?")
  121.        (help @askfile-help)
  122.        (default "amitcp:bin/guiarc")
  123.    )
  124. )
  125.  
  126. (set newsed
  127.    (askfile
  128.        (prompt "What News Group Editor Do You Use?")
  129.        (help @askfile-help)
  130.        (default "amitcp:bin/newsed_gui.exe")
  131.    )
  132. )
  133.  
  134.  
  135. (message "Let's configure the 2 buttons and 5 menu items.\n\n If you dont want,\n just leave blank lines\n and click on Proceed")
  136. (set option1Text
  137.    (askstring
  138.       (prompt "Enter Menu and Button Text For Option 1\n(Just ONE word, dude!)")
  139.       (help @askstring-help)
  140.       (default " ")
  141.    )
  142. )
  143. (set option1prog
  144.    (askfile
  145.       (prompt "Which Program Should This Option Run?")
  146.       (help @askfile-help)
  147.       (default " ")
  148.    )
  149. )
  150. (set option2Text
  151.    (askstring
  152.       (prompt "Enter Menu and Button Text For Option 2\n(Still ONE word, pal!)")
  153.       (help @askstring-help)
  154.       (default " ")
  155.    )
  156. )
  157. (set option2prog
  158.    (askfile
  159.       (prompt "Which Program Should This Option Run?")
  160.       (help @askfile-help)
  161.       (default " ")
  162.    )
  163. )
  164. (set option3Text
  165.    (askstring
  166.       (prompt "Enter Menu Text For Option 3\n(ONE other word, guy!)")
  167.       (help @askstring-help)
  168.       (default " ")
  169.    )
  170. )
  171. (set option3prog
  172.    (askfile
  173.       (prompt "Which Program Should This Option Run?")
  174.       (help @askfile-help)
  175.       (default " ")
  176.    )
  177. )
  178. (set option4Text
  179.    (askstring
  180.       (prompt "Enter Menu Text For Option 4\n(Do you know? .. ONE word)")
  181.       (help @askstring-help)
  182.       (default " ")
  183.    )
  184. )
  185. (set option4prog
  186.    (askfile
  187.       (prompt "Which Program Should This Option Run?")
  188.       (help @askfile-help)
  189.       (default " ")
  190.    )
  191. )
  192. (set option5Text
  193.    (askstring
  194.       (prompt "Enter Menu Text For Option 5\n(Finally, the last ONE word)")
  195.       (help @askstring-help)
  196.       (default " ")
  197.    )
  198. )
  199. (set option5prog
  200.    (askfile
  201.       (prompt "Which Program Should This Option Run?")
  202.       (help @askfile-help)
  203.       (default " ")
  204.    )
  205. )
  206. (message "You can enter now\n4 users profiles.\n\nIf you don't want,\n leave blank requester\n and ckick on Proceed.\n(As Ever!:)")
  207. (set User1Text
  208.    (askstring
  209.       (prompt "Enter Menu Text For User 1\n(How many words? ONEEEEEE!!!)")
  210.       (help @askstring-help)
  211.       (default "")
  212.    )
  213. )
  214. (set user1name
  215.    (askstring
  216.       (prompt "Enter the User Name of User 1\n(3? 5? 666? no!! Just ONE word!)")
  217.       (help @askstring-help)
  218.       (default "")
  219.    )
  220. )
  221. (set user1realname
  222.    (askstring
  223.       (prompt "Enter the Real Name of User 1")
  224.       (help @askstring-help)
  225.       (default "")
  226.    )
  227. )
  228.  
  229. (set User2Text
  230.    (askstring
  231.       (prompt "Enter Menu Text For User 2\n(mumble..mumble..it's ONE word?)")
  232.       (help @askstring-help)
  233.       (default "")
  234.    )
  235. )
  236. (set user2name
  237.    (askstring
  238.       (prompt "Enter the User Name of User 2\n(Let me think to ONE word)")
  239.       (help @askstring-help)
  240.       (default "")
  241.    )
  242. )
  243. (set user2realname
  244.    (askstring
  245.       (prompt "Enter the Real Name of User 2")
  246.       (help @askstring-help)
  247.       (default "")
  248.    )
  249. )
  250. (set User3Text
  251.    (askstring
  252.       (prompt "Enter Menu Text For User 3\n(QUIZ: think a number from ONE to ONE)")
  253.       (help @askstring-help)
  254.       (default "")
  255.    )
  256. )
  257. (set user3name
  258.    (askstring
  259.       (prompt "Enter the User Name of User 3\n(Maybe more than ONE ?)")
  260.       (help @askstring-help)
  261.       (default "")
  262.    )
  263. )
  264. (set user3realname
  265.    (askstring
  266.       (prompt "Enter the Real Name of User 3")
  267.       (help @askstring-help)
  268.       (default "")
  269.    )
  270. )
  271. (set User4Text
  272.    (askstring
  273.       (prompt "Enter Menu Text For User 4\n(Don't bore me! I know! ONE word!!!)")
  274.       (help @askstring-help)
  275.       (default "")
  276.    )
  277. )
  278. (set user4name
  279.    (askstring
  280.       (prompt "Enter the User Name of User 4\n(AAArghhhh!! What a ball!! ONE ball!)")
  281.       (help @askstring-help)
  282.       (default "")
  283.    )
  284. )
  285. (set user4realname
  286.    (askstring
  287.       (prompt "Enter the Real Name of User 4")
  288.       (help @askstring-help)
  289.       (default "")
  290.    )
  291. )
  292. (message "You can also change the PoP you use\njust selecting a menuitem.\n\nIf you dont want.. \njust keep pressing Proceed")
  293. (set pop1text
  294.    (askstring
  295.       (prompt "Enter The Menu Text For POP1\n(I hope it's just ONE word!)")
  296.       (help @askstring-help)
  297.       (default "")
  298.    )
  299. )
  300. (set pop1file
  301.    (askfile
  302.       (prompt "What Dialscript Is Used To Dial This POP")
  303.       (help @askfile)
  304.       (default "")
  305.    )
  306. )
  307. (set pop2text
  308.    (askstring
  309.       (prompt "Enter The Menu Text For POP2\n(Shake your mind.. gimme LAST ONE word!)")
  310.       (help @askstring-help)
  311.       (default "")
  312.    )
  313. )
  314. (set pop2file
  315.    (askfile
  316.       (prompt "What Dialscript Is Used To Dial This POP")
  317.       (help @askfile)
  318.       (default "")
  319.    )
  320. )
  321. (set pop3text
  322.    (askstring
  323.       (prompt "Enter The Menu Text For POP3\n(Dont burst into tears.. it was a joke!)\n(This is really the LAST ONE!)")
  324.       (help @askstring-help)
  325.       (default "")
  326.    )
  327. )
  328. (set pop3file
  329.    (askfile
  330.       (prompt "What Dialscript Is Used To Dial This POP")
  331.       (help @askfile)
  332.       (default "")
  333.    )
  334. )
  335.  
  336.  
  337. (Set intro1 "; Control Panel 4.2 Configuration File\n")
  338. (Set intro2 "; Written by * PirlAGA Config Script *\n")
  339. (set tekne "; e.mail: tekne@cmns.mnegri.it  -  www: http://www.cmns.mnegri.it\n")
  340. (set blankline "\n")
  341. (Set intro3 "; Requester Position\n")
  342. (set leftpos ("LEFT = %ld \n" left))
  343. (set toppos ("TOP = %ld \n" top))
  344. (set intro4 "; Where Is AmiTCP stored?\n")
  345. (set amitcpdirt ("AMITCPDIR = %s \n" amitcpdir))
  346. (set Intro5 "; Programs Used By Control Panel\n")
  347. (set linkprog ("Link = %s \n" link))
  348. (set mailprog ("Mail = %s \n" mail))
  349. (set newsprog ("News = %s \n" news))
  350. (set FtpProg ("FTP = %s \n" ftp))
  351. (set WWWprog ("WWW = %s \n" www))
  352. (Set GopherProg ("Gopher = %s \n" gopher))
  353. (set IRCprog ("IRC = %s \n" irc))
  354. (set tracerouteprog ("TRACEROUTE = Amitcp:bin/ping.traceroute.exe\n"))
  355. (set pingprog ("PING = AMITCP:bin/ping.traceroute.exe\n"))
  356. (set archieprog ("ARCHIE = Amitcp:bin/archie_gui.exe\n"))
  357. (set fingerprog ("FINGER = Amitcp:bin/finger_gui.exe\n"))
  358. (set autoprog ("AUTO = AMITCP:bin/auto.exe\n"))
  359. (Set UUDecoderProg ("UUDECODER = %s \n" uudecoder))
  360. (Set Dearchiverprog ("DEARCHIVER = %s \n" dearchiver))
  361. (Set NewsEdProg ("NEWSEDPROG = %s \n" NewsEd))
  362. (set UserOptions ("; Control Panel User Options\n"))
  363. (set option1 ("OPTION1 = %s %s\n" option1text option1prog))
  364. (set option2 ("OPTION2 = %s %s\n" option2text option2prog))
  365. (set option3 ("OPTION3 = %s %s\n" option3text option3prog))
  366. (set option4 ("OPTION4 = %s %s\n" option4text option4prog))
  367. (set option5 ("OPTION5 = %s %s\n" option5text option5prog))
  368. (set Users ("; Control Panel Users\n"))
  369. (set user1 ("USER1 = %s %s %s \n" user1text user1name user1realname))
  370. (set user2 ("USER2 = %s %s %s \n" user2text user2name user2realname))
  371. (set user3 ("USER3 = %s %s %s \n" user3text user3name user3realname))
  372. (set user4 ("USER4 = %s %s %s \n" user4text user4name user4realname))
  373. (set Pops ("; Control Panel Pop's\n"))
  374. (set pop1 ("POP1 = %s %s\n" pop1text pop1file))
  375. (set pop2 ("POP2 = %s %s\n" pop2text pop2file))
  376. (set pop3 ("POP3 = %s %s\n" pop3text pop3file))
  377. (set endofconfig "; End Of Control Panel Config File\n")
  378. (set greet "; Greetings from Italy by PirlAGA")
  379. (textfile
  380.    (dest "s:cp.config")
  381.    (append intro1)
  382.    (append intro2)
  383.    (append tekne)
  384.    (append blankline)
  385.    (append intro3)
  386.    (append leftpos)
  387.    (append toppos)
  388.    (append blankline)
  389.    (append Intro4)
  390.    (append amitcpdirt)
  391.    (append blankline)
  392.    (append device)
  393.    (append blankline)
  394.    (append status)
  395.    (append blankline)
  396.    (append intro5)
  397.    (append linkprog)
  398.    (append mailprog)
  399.    (append newsprog)
  400.    (append ftpprog)
  401.    (append wwwprog)
  402.    (append gopherprog)
  403.    (append ircprog)
  404.    (append pingprog)
  405.    (append tracerouteprog)
  406.    (append autoprog)
  407.    (append archieprog)
  408.    (append fingerprog)
  409.    (append uudecoderprog)
  410.    (append dearchiverprog)
  411.    (append newsedprog)
  412.    (append blankline)
  413.    (append useroptions)
  414.    (append option1)
  415.    (append option2)
  416.    (append option3)
  417.    (append option4)
  418.    (append option5)
  419.    (append users)
  420.    (append user1)
  421.    (append user2)
  422.    (append user3)
  423.    (append user4)
  424.    (append pops)
  425.    (append pop1)
  426.    (append pop2)
  427.    (append pop3)
  428.    (append endofconfig)
  429.    (append greet)
  430. )
  431.  
  432.